﻿Public Class frmAñadirUsuario

    Private Sub btnAñadir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAñadir.Click
        Dim Nuevo As New ClaseUsuario(txtNickUsuario.Text, txtContraseñaUsuario.Text, 0, 0, 0, 0)
        MiJuego.AñadirUsuario(Nuevo)
        txtContraseñaUsuario.Text = ""
        txtNickUsuario.Text = ""
        txtNickUsuario.Focus()
    End Sub

    Private Sub btnVolver_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVolver.Click
        Me.Close()
    End Sub
    Private Sub frmAñadirPalabra_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        txtNickUsuario.Focus()
    End Sub
End Class